home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / csview / fmenu.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-04-05  |  7.1 KB  |  226 lines
  1. VERSION 2.00
  2. Begin Form fmenu 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00FFFFFF&
  5.    BorderStyle     =   3  'Fixed Double
  6.    Caption         =   "VideoSoft vsView Demo"
  7.    ClientHeight    =   4755
  8.    ClientLeft      =   420
  9.    ClientTop       =   1425
  10.    ClientWidth     =   8295
  11.    Height          =   5160
  12.    Left            =   360
  13.    LinkTopic       =   "Form3"
  14.    MaxButton       =   0   'False
  15.    Picture         =   FMENU.FRX:0000
  16.    ScaleHeight     =   4755
  17.    ScaleWidth      =   8295
  18.    Top             =   1080
  19.    Width           =   8415
  20.    Begin vsViewPort vsViewPort1 
  21.       BorderStyle     =   0  'None
  22.       ConvInfo        =   FMENU.FRX:E022
  23.       Height          =   315
  24.       Left            =   7590
  25.       Top             =   300
  26.       VirtualHeight   =   0
  27.       VirtualWidth    =   0
  28.       Visible         =   0   'False
  29.       Width           =   495
  30.    End
  31.    Begin CommandButton Command1 
  32.       BackColor       =   &H00C0C0C0&
  33.       Caption         =   "FlowCharts && Borders"
  34.       FontBold        =   0   'False
  35.       FontItalic      =   0   'False
  36.       FontName        =   "MS Sans Serif"
  37.       FontSize        =   8.25
  38.       FontStrikethru  =   0   'False
  39.       FontUnderline   =   0   'False
  40.       Height          =   375
  41.       Index           =   10
  42.       Left            =   4275
  43.       TabIndex        =   8
  44.       Top             =   3165
  45.       Width           =   1830
  46.    End
  47.    Begin CommandButton Command1 
  48.       BackColor       =   &H00C0C0C0&
  49.       Caption         =   "Maps"
  50.       FontBold        =   0   'False
  51.       FontItalic      =   0   'False
  52.       FontName        =   "MS Sans Serif"
  53.       FontSize        =   8.25
  54.       FontStrikethru  =   0   'False
  55.       FontUnderline   =   0   'False
  56.       Height          =   375
  57.       Index           =   5
  58.       Left            =   6240
  59.       TabIndex        =   9
  60.       Top             =   2250
  61.       Width           =   1830
  62.    End
  63.    Begin CommandButton Command1 
  64.       BackColor       =   &H00C0C0C0&
  65.       Caption         =   "Visual &Printer"
  66.       FontBold        =   0   'False
  67.       FontItalic      =   0   'False
  68.       FontName        =   "MS Sans Serif"
  69.       FontSize        =   8.25
  70.       FontStrikethru  =   0   'False
  71.       FontUnderline   =   0   'False
  72.       Height          =   375
  73.       Index           =   9
  74.       Left            =   4275
  75.       TabIndex        =   2
  76.       Top             =   3645
  77.       Width           =   1830
  78.    End
  79.    Begin CommandButton Command1 
  80.       BackColor       =   &H00C0C0C0&
  81.       Caption         =   "&ViewPort"
  82.       FontBold        =   0   'False
  83.       FontItalic      =   0   'False
  84.       FontName        =   "MS Sans Serif"
  85.       FontSize        =   8.25
  86.       FontStrikethru  =   0   'False
  87.       FontUnderline   =   0   'False
  88.       Height          =   375
  89.       Index           =   8
  90.       Left            =   6240
  91.       TabIndex        =   1
  92.       Top             =   1785
  93.       Width           =   1830
  94.    End
  95.    Begin CommandButton Command1 
  96.       BackColor       =   &H00C0C0C0&
  97.       Caption         =   "&Print Preview"
  98.       FontBold        =   0   'False
  99.       FontItalic      =   0   'False
  100.       FontName        =   "MS Sans Serif"
  101.       FontSize        =   8.25
  102.       FontStrikethru  =   0   'False
  103.       FontUnderline   =   0   'False
  104.       Height          =   375
  105.       Index           =   7
  106.       Left            =   4275
  107.       TabIndex        =   0
  108.       Top             =   2250
  109.       Width           =   1830
  110.    End
  111.    Begin CommandButton Command1 
  112.       BackColor       =   &H00C0C0C0&
  113.       Caption         =   "Pre-Printed Forms"
  114.       FontBold        =   0   'False
  115.       FontItalic      =   0   'False
  116.       FontName        =   "MS Sans Serif"
  117.       FontSize        =   8.25
  118.       FontStrikethru  =   0   'False
  119.       FontUnderline   =   0   'False
  120.       Height          =   375
  121.       Index           =   6
  122.       Left            =   4275
  123.       TabIndex        =   3
  124.       Top             =   2700
  125.       Width           =   1830
  126.    End
  127.    Begin CommandButton Command1 
  128.       BackColor       =   &H00C0C0C0&
  129.       Caption         =   "Visual &Clipboard"
  130.       FontBold        =   0   'False
  131.       FontItalic      =   0   'False
  132.       FontName        =   "MS Sans Serif"
  133.       FontSize        =   8.25
  134.       FontStrikethru  =   0   'False
  135.       FontUnderline   =   0   'False
  136.       Height          =   375
  137.       Index           =   3
  138.       Left            =   6240
  139.       TabIndex        =   4
  140.       Top             =   3645
  141.       Width           =   1830
  142.    End
  143.    Begin CommandButton Command1 
  144.       BackColor       =   &H00C0C0C0&
  145.       Caption         =   "&Borders FX"
  146.       FontBold        =   0   'False
  147.       FontItalic      =   0   'False
  148.       FontName        =   "MS Sans Serif"
  149.       FontSize        =   8.25
  150.       FontStrikethru  =   0   'False
  151.       FontUnderline   =   0   'False
  152.       Height          =   375
  153.       Index           =   1
  154.       Left            =   6240
  155.       TabIndex        =   6
  156.       Top             =   3180
  157.       Width           =   1830
  158.    End
  159.    Begin CommandButton Command1 
  160.       BackColor       =   &H00C0C0C0&
  161.       Caption         =   "&Floating Controls"
  162.       FontBold        =   0   'False
  163.       FontItalic      =   0   'False
  164.       FontName        =   "MS Sans Serif"
  165.       FontSize        =   8.25
  166.       FontStrikethru  =   0   'False
  167.       FontUnderline   =   0   'False
  168.       Height          =   375
  169.       Index           =   0
  170.       Left            =   6240
  171.       TabIndex        =   5
  172.       Top             =   2700
  173.       Width           =   1830
  174.    End
  175.    Begin Image Image1 
  176.       Height          =   1485
  177.       Left            =   2880
  178.       Picture         =   FMENU.FRX:E02D
  179.       Stretch         =   -1  'True
  180.       Top             =   150
  181.       Width           =   3330
  182.    End
  183.    Begin Label Label1 
  184.       Alignment       =   2  'Center
  185.       BackStyle       =   0  'Transparent
  186.       Caption         =   "VideoSoft 2625 Alcatraz Ave., Suite 271, Berkeley, California 94705   Voice (510) 704-8200   Fax (510) 843-0174"
  187.       FontBold        =   0   'False
  188.       FontItalic      =   0   'False
  189.       FontName        =   "Arial"
  190.       FontSize        =   8.25
  191.       FontStrikethru  =   0   'False
  192.       FontUnderline   =   0   'False
  193.       Height          =   435
  194.       Left            =   2805
  195.       TabIndex        =   7
  196.       Top             =   4320
  197.       Width           =   5385
  198.    End
  199. Option Explicit
  200. Sub Command1_Click (Index As Integer)
  201.   mousepointer = 11
  202.   Select Case Index
  203.     Case 0    ' Toolbox
  204.       ftoolbox.Show
  205.     Case 1    ' Border FX
  206.       fFx.Show
  207.     Case 3    ' Visual Clipboard
  208.       fclipbrd.Show
  209.     Case 5    ' Maps
  210.       fmap.Show
  211.     Case 6    ' Pre-printed forms
  212.       formdes.Show
  213.     Case 7    ' EZ Printing
  214.       fEZPrint.Show 1
  215.     Case 8    ' ViewPort
  216.       fviewport.Show
  217.     Case 9    ' Visual Printer
  218.       fdesk.Show
  219.     Case 10
  220.        fchart.Show
  221.     Case Else
  222.       MsgBox "Demo not available"
  223.   End Select
  224.   mousepointer = 0
  225. End Sub
  226.